home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Freeware / PerfectPaint / rexx / Alchemy / Script / OilPaint.rx < prev    next >
Encoding:
Text File  |  2002-03-13  |  453 b   |  34 lines
  1. /* Alchemy script
  2. 100
  3. 1
  4. 4
  5. */
  6.  
  7.     options results
  8.   parse ARG Port x1 y1 x2 y2 type b
  9.     ADDRESS value Port
  10.  
  11.     pp_AvoidRefresh
  12.     pp_Progresstext 'OilPaint'
  13.     pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1
  14.  
  15.     pp_ComposeReqOff
  16.     pp_Compose 0 100 0
  17.  
  18.     pp_EffectOn
  19.     do i=0 to 2
  20.     pp_Displace type+2
  21.     pp_Progress i*2+1 7
  22.     pp_BoxF x1 y1 x2 y2
  23.     pp_Median type+1
  24.     pp_Progress i*2+2 7
  25.     pp_BoxF x1 y1 x2 y2
  26.     end
  27.     pp_EffectOff
  28.     pp_ComposeReqOn
  29.  
  30.     pp_PermitRefresh
  31.     pp_Progressclr
  32.  
  33.     Exit
  34.